<%
'#################################################################################
'## UnWritten Open Source Blog Engine
'#################################################################################
'## Copyright (C) 2008 Luigi Violin
'##
'## This program is free software: you can redistribute it and/or modify
'## it under the terms of the GNU General Public License as published by
'## the Free Software Foundation, either version 2 of the License, or
'## (at your option) any later version.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program.  If not, see <http://www.gnu.org/licenses/>.
'##
'## You can obtain support from our forums at:
'##     <http://www.unwrittenblog.com/forums/>
'## Contact the author directly:
'##     <zaamit@hotmail.com/>
'##
'#################################################################################
%>
<!--#include virtual="/includes/core.asp"-->
<%
strQry = "insert into " & db_prefix & "comments(postid,text,author_id,author_name,author_email,author_ip,author_url,date,date_gmt,status) values ("
strQry = strQry & request.Form("postid") & ",'" & request.Form("text") & "'," & request.Form("author_id") & ",'" & request.Form("author_name") & "','" & request.Form("author_email") & "','" & Request.ServerVariables("REMOTE_ADDR") & "','" & request.Form("author_url") & "','" & str2dat(now()) & "','" & str2dat(DateAdd("n", Application("GMToffset"), now())) & "',1)"
'Response.Write strQry
if request.form("author_name") <> "" and request.Form("author_email") <> "" then dbConn.execute strQry
response.Redirect request.Form("return_url")
%>